﻿Imports Alquilaqi
Public Class DueñoListar
    Private Sub DueñoListar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'aqui es cuando ni bien se abre el MDI aparesca los elementos que quieras

        With Me.dgvDueños.ColumnHeadersDefaultCellStyle
            .BackColor = Color.Red
            .ForeColor = Color.White

        End With

    End Sub
    Private Sub btnListar_Click_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListar_Click.Click
        Dim criterio As String = Me.txtBuscar.Text
        'MsgBox(criterio)

        Dim negocio As New DueñoNegocio
        Dim reservas As Collection = negocio.buscarPorNombre(criterio)
        Me.dgvDueños.DataSource = reservas      ' el coleccion lo mostramos en el datagriew  "dgvDueños"
        Me.dgvDueños.EditMode = False

        If reservas.Count > 0 Then
            'Me.dgvDueños.Columns(0).HeaderText = "Id Dueño"
            Me.dgvDueños.Columns(1).HeaderText = "Nombres"
            Me.dgvDueños.Columns(2).HeaderText = "A. Paterno"
            Me.dgvDueños.Columns(3).HeaderText = "A. Materno"
            Me.dgvDueños.Columns(4).HeaderText = "Correo"
            Me.dgvDueños.Columns(5).HeaderText = "Clave"
            Me.dgvDueños.Columns(6).HeaderText = "Teléfono"
            Me.dgvDueños.Columns(7).HeaderText = "Dirección"
            Me.dgvDueños.Columns(8).HeaderText = "DNI"

            Me.dgvDueños.Columns(0).Visible = False

        End If

    End Sub

   
End Class